program Forinstr;
var
	a:integer;
begin
	for a:=1 to 10 do
		writeln(a);
	writeln(2);
	for a:=5 downto 1 do
		writeln(a);
end.
